<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=11"/>
<meta name="generator" content="Doxygen 1.12.0"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>Dataset-JSON v1.1 Hands-On Implementation Training: macros/write_datasetjson.sas Source File</title>
<link href="../../tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../jquery.js"></script>
<script type="text/javascript" src="../../dynsections.js"></script>
<script type="text/javascript" src="../../clipboard.js"></script>
<link href="../../navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../navtreedata.js"></script>
<script type="text/javascript" src="../../navtree.js"></script>
<script type="text/javascript" src="../../resize.js"></script>
<script type="text/javascript" src="../../cookie.js"></script>
<link href="../../search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="../../search/searchdata.js"></script>
<script type="text/javascript" src="../../search/search.js"></script>
<link href="../../doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr id="projectrow">
  <td id="projectalign">
   <div id="projectname">Dataset-JSON v1.1 Hands-On Implementation Training
   </div>
   <div id="projectbrief">Dataset-JSON v1.1 Hands-On Implementation Training</div>
  </td>
 </tr>
 </tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.12.0 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
var searchBox = new SearchBox("searchBox", "../../search/",'.html');
/* @license-end */
</script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function() { codefold.init(1); });
/* @license-end */
</script>
<script type="text/javascript" src="../../menudata.js"></script>
<script type="text/javascript" src="../../menu.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function() {
  initMenu('../../',true,false,'search.php','Search',true);
  $(function() { init_search(); });
});
/* @license-end */
</script>
<div id="main-nav"></div>
</div><!-- top -->
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
      <div id="nav-sync" class="sync"></div>
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&amp;dn=expat.txt MIT */
$(function(){initNavTree('df/d00/write__datasetjson_8sas_source.html','../../'); initResizable(true); });
/* @license-end */
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<div id="MSearchResults">
<div class="SRPage">
<div id="SRIndex">
<div id="SRResults"></div>
<div class="SRStatus" id="Loading">Loading...</div>
<div class="SRStatus" id="Searching">Searching...</div>
<div class="SRStatus" id="NoMatches">No Matches</div>
</div>
</div>
</div>
</div>

<div class="header">
  <div class="headertitle"><div class="title">write_datasetjson.sas</div></div>
</div><!--header-->
<div class="contents">
<a href="../../df/d00/write__datasetjson_8sas.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno">    1</span><span class="comment">/**</span></div>
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno">    2</span><span class="comment">  @file write_datasetjson.sas</span></div>
<div class="line"><a id="l00003" name="l00003"></a><span class="lineno">    3</span><span class="comment">  @brief Write a SAS dataset to a Dataset-JSON file.</span></div>
<div class="line"><a id="l00004" name="l00004"></a><span class="lineno">    4</span><span class="comment"></span> </div>
<div class="line"><a id="l00005" name="l00005"></a><span class="lineno">    5</span><span class="comment">  @details This macro creates a Dataset-JSON file from a SAS dataset&lt;br /&gt;</span></div>
<div class="line"><a id="l00006" name="l00006"></a><span class="lineno">    6</span><span class="comment">  Metadata is taken from the dataset or from a number of metadata tables:</span></div>
<div class="line"><a id="l00007" name="l00007"></a><span class="lineno">    7</span><span class="comment">  @li metadata_study</span></div>
<div class="line"><a id="l00008" name="l00008"></a><span class="lineno">    8</span><span class="comment">  @li metadata_tables</span></div>
<div class="line"><a id="l00009" name="l00009"></a><span class="lineno">    9</span><span class="comment">  @li metadata_columns</span></div>
<div class="line"><a id="l00010" name="l00010"></a><span class="lineno">   10</span><span class="comment"></span> </div>
<div class="line"><a id="l00011" name="l00011"></a><span class="lineno">   11</span><span class="comment">  Some metadata can be specified as parameters</span></div>
<div class="line"><a id="l00012" name="l00012"></a><span class="lineno">   12</span><span class="comment">  (fileOID, originator, sourceSystem, sourceSystemVersion,</span></div>
<div class="line"><a id="l00013" name="l00013"></a><span class="lineno">   13</span><span class="comment">  studyOID, metaDataVersionOID, metaDataRef, datasetlabel).</span></div>
<div class="line"><a id="l00014" name="l00014"></a><span class="lineno">   14</span><span class="comment"></span> </div>
<div class="line"><a id="l00015" name="l00015"></a><span class="lineno">   15</span><span class="comment">  Example usage:</span></div>
<div class="line"><a id="l00016" name="l00016"></a><span class="lineno">   16</span><span class="comment"></span> </div>
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno">   17</span><span class="comment">      %write_datasetjson(</span></div>
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno">   18</span><span class="comment">          dataset=datasdtm.dm,</span></div>
<div class="line"><a id="l00019" name="l00019"></a><span class="lineno">   19</span><span class="comment">          jsonpath=&amp;project_folder/json_out/sdtm/dm.json);</span></div>
<div class="line"><a id="l00020" name="l00020"></a><span class="lineno">   20</span><span class="comment"></span> </div>
<div class="line"><a id="l00021" name="l00021"></a><span class="lineno">   21</span><span class="comment">      %write_datasetjson(</span></div>
<div class="line"><a id="l00022" name="l00022"></a><span class="lineno">   22</span><span class="comment">          dataset=datasdtm.dm,</span></div>
<div class="line"><a id="l00023" name="l00023"></a><span class="lineno">   23</span><span class="comment">          jsonpath=&amp;project_folder/json_out/sdtm/dm.json,</span></div>
<div class="line"><a id="l00024" name="l00024"></a><span class="lineno">   24</span><span class="comment">          usemetadata=Y,</span></div>
<div class="line"><a id="l00025" name="l00025"></a><span class="lineno">   25</span><span class="comment">          metadatalib=metasdtm);</span></div>
<div class="line"><a id="l00026" name="l00026"></a><span class="lineno">   26</span><span class="comment"></span> </div>
<div class="line"><a id="l00027" name="l00027"></a><span class="lineno">   27</span><span class="comment">  @author Lex Jansen</span></div>
<div class="line"><a id="l00028" name="l00028"></a><span class="lineno">   28</span><span class="comment"></span> </div>
<div class="line"><a id="l00029" name="l00029"></a><span class="lineno">   29</span><span class="comment">  @param[in] dataset= (libname.)memname of the SAS data set</span></div>
<div class="line"><a id="l00030" name="l00030"></a><span class="lineno">   30</span><span class="comment">  @param[out] jsonpath= Path to Dataset-JSON file</span></div>
<div class="line"><a id="l00031" name="l00031"></a><span class="lineno">   31</span><span class="comment">  @param[out] jsonfref= File reference for the Dataset-JSON file.</span></div>
<div class="line"><a id="l00032" name="l00032"></a><span class="lineno">   32</span><span class="comment">                        Either jsonpath or jsonfref has to be sppecified.</span></div>
<div class="line"><a id="l00033" name="l00033"></a><span class="lineno">   33</span><span class="comment">  @param[in] usemetadata= (N) Use Define-XML metadata? (Y/N)</span></div>
<div class="line"><a id="l00034" name="l00034"></a><span class="lineno">   34</span><span class="comment">  @param[in] metadatalib= Define-XML metadata library</span></div>
<div class="line"><a id="l00035" name="l00035"></a><span class="lineno">   35</span><span class="comment">    The following datasets are expected:</span></div>
<div class="line"><a id="l00036" name="l00036"></a><span class="lineno">   36</span><span class="comment">    @li metadata_study</span></div>
<div class="line"><a id="l00037" name="l00037"></a><span class="lineno">   37</span><span class="comment">    @li metadata_tables</span></div>
<div class="line"><a id="l00038" name="l00038"></a><span class="lineno">   38</span><span class="comment">    @li metadata_columns</span></div>
<div class="line"><a id="l00039" name="l00039"></a><span class="lineno">   39</span><span class="comment">  @param[in] decimalVariables= List of numeric variables to write as decimal strings.</span></div>
<div class="line"><a id="l00040" name="l00040"></a><span class="lineno">   40</span><span class="comment">    Not used when usemetadata=Y. Separated by blanks.</span></div>
<div class="line"><a id="l00041" name="l00041"></a><span class="lineno">   41</span><span class="comment">  @param[in] datasetJSONVersion= (1.1.0) Dataset-JSON version. Allowed values: 1.1.*</span></div>
<div class="line"><a id="l00042" name="l00042"></a><span class="lineno">   42</span><span class="comment">  @param[in] originator= The organization that generated the Dataset-JSON dataset.</span></div>
<div class="line"><a id="l00043" name="l00043"></a><span class="lineno">   43</span><span class="comment">  @param[in] sourceSystem= The name of the information system from which the content of this dataset was sourced</span></div>
<div class="line"><a id="l00044" name="l00044"></a><span class="lineno">   44</span><span class="comment">  @param[in] sourceSystemVersion= The version of the information system from which the content of this dataset was sourced</span></div>
<div class="line"><a id="l00045" name="l00045"></a><span class="lineno">   45</span><span class="comment">  @param[in] studyOID= Unique identifier for the study that may also function as a foreign key to a Study/\@OID in an associated Define-XML file</span></div>
<div class="line"><a id="l00046" name="l00046"></a><span class="lineno">   46</span><span class="comment">  @param[in] metaDataVersionOID= Unique identifier for the metadata version that may also function as a foreign key to a MetaDataVersion/\@OID in an associated Define-XML file</span></div>
<div class="line"><a id="l00047" name="l00047"></a><span class="lineno">   47</span><span class="comment">  @param[in] metaDataRef= URI for a metadata file describing the dataset (e.g., a Define-XML file)</span></div>
<div class="line"><a id="l00048" name="l00048"></a><span class="lineno">   48</span><span class="comment">  @param[in] datasetlabel= Dataset label</span></div>
<div class="line"><a id="l00049" name="l00049"></a><span class="lineno">   49</span><span class="comment">  @param[in] pretty= (NOPRETTY) Format Dataset-JSON file (PRETTY/NOPRETTY).</span></div>
<div class="line"><a id="l00050" name="l00050"></a><span class="lineno">   50</span><span class="comment"></span> </div>
<div class="line"><a id="l00051" name="l00051"></a><span class="lineno">   51</span><span class="comment">  &lt;h4&gt; Related Macros &lt;/h4&gt;</span></div>
<div class="line"><a id="l00052" name="l00052"></a><span class="lineno">   52</span><span class="comment">  @li write_datasetjson_1_0.sas</span></div>
<div class="line"><a id="l00053" name="l00053"></a><span class="lineno">   53</span><span class="comment">  @li write_datasetjson_1_1.sas</span></div>
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno">   54</span><span class="comment"></span> </div>
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno">   55</span><span class="comment">**/</span></div>
<div class="line"><a id="l00056" name="l00056"></a><span class="lineno">   56</span> </div>
<div class="line"><a id="l00057" name="l00057"></a><span class="lineno">   57</span>%macro write_datasetjson(</div>
<div class="line"><a id="l00058" name="l00058"></a><span class="lineno">   58</span>  dataset=,</div>
<div class="line"><a id="l00059" name="l00059"></a><span class="lineno">   59</span>  jsonpath=,</div>
<div class="line"><a id="l00060" name="l00060"></a><span class="lineno">   60</span>  jsonfref=,</div>
<div class="line"><a id="l00061" name="l00061"></a><span class="lineno">   61</span>  usemetadata=N,</div>
<div class="line"><a id="l00062" name="l00062"></a><span class="lineno">   62</span>  metadatalib=,</div>
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno">   63</span>  decimalVariables=,</div>
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno">   64</span>  datasetJSONVersion=1.1.0,</div>
<div class="line"><a id="l00065" name="l00065"></a><span class="lineno">   65</span>  fileOID=,</div>
<div class="line"><a id="l00066" name="l00066"></a><span class="lineno">   66</span>  originator=,</div>
<div class="line"><a id="l00067" name="l00067"></a><span class="lineno">   67</span>  sourceSystem=,</div>
<div class="line"><a id="l00068" name="l00068"></a><span class="lineno">   68</span>  sourceSystemVersion=,</div>
<div class="line"><a id="l00069" name="l00069"></a><span class="lineno">   69</span>  studyOID=,</div>
<div class="line"><a id="l00070" name="l00070"></a><span class="lineno">   70</span>  metaDataVersionOID=,</div>
<div class="line"><a id="l00071" name="l00071"></a><span class="lineno">   71</span>  metaDataRef=,</div>
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno">   72</span>  datasetlabel=,</div>
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno">   73</span>  pretty=NOPRETTY</div>
<div class="line"><a id="l00074" name="l00074"></a><span class="lineno">   74</span>  ) / des = <span class="stringliteral">&#39;Write a SAS dataset to a Dataset-JSON file&#39;</span>;</div>
<div class="line"><a id="l00075" name="l00075"></a><span class="lineno">   75</span> </div>
<div class="line"><a id="l00076" name="l00076"></a><span class="lineno">   76</span>  %local</div>
<div class="line"><a id="l00077" name="l00077"></a><span class="lineno">   77</span>    _Random</div>
<div class="line"><a id="l00078" name="l00078"></a><span class="lineno">   78</span>    _SaveOptions1</div>
<div class="line"><a id="l00079" name="l00079"></a><span class="lineno">   79</span>    _SaveOptions2</div>
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno">   80</span>    _Missing</div>
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno">   81</span>    _create_temp_dataset_sas</div>
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno">   82</span>    dataset_new dataset_name dataset_label _records</div>
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno">   83</span>    _studyOID _metaDataVersionOID _itemGroupOID</div>
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno">   84</span>    creationDateTime modifiedDateTime</div>
<div class="line"><a id="l00085" name="l00085"></a><span class="lineno">   85</span>    releaseCreated hostCreated</div>
<div class="line"><a id="l00086" name="l00086"></a><span class="lineno">   86</span>    _decimal_variables _iso8601_variables _format</div>
<div class="line"><a id="l00087" name="l00087"></a><span class="lineno">   87</span>    ;</div>
<div class="line"><a id="l00088" name="l00088"></a><span class="lineno">   88</span> </div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno">   89</span> </div>
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno">   90</span>  %let _Random=%sysfunc(putn(%sysevalf(%sysfunc(ranuni(0))*10000,floor),z4.));</div>
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno">   91</span> </div>
<div class="line"><a id="l00092" name="l00092"></a><span class="lineno">   92</span>  %* Save options;</div>
<div class="line"><a id="l00093" name="l00093"></a><span class="lineno">   93</span>  %let _SaveOptions1 = %sysfunc(getoption(dlcreatedir));</div>
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno">   94</span>  %let _SaveOptions2 = %sysfunc(getoption(compress, keyword)) %sysfunc(getoption(reuse, keyword));</div>
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno">   95</span>  options dlcreatedir;</div>
<div class="line"><a id="l00096" name="l00096"></a><span class="lineno">   96</span>  options compress=Yes reuse=Yes;</div>
<div class="line"><a id="l00097" name="l00097"></a><span class="lineno">   97</span> </div>
<div class="line"><a id="l00098" name="l00098"></a><span class="lineno">   98</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(datasetJSONVersion)=, <span class="keywordtype">boolean</span>) %then %let datasetJSONVersion = %str(1.1.0);</div>
<div class="line"><a id="l00099" name="l00099"></a><span class="lineno">   99</span> </div>
<div class="line"><a id="l00100" name="l00100"></a><span class="lineno">  100</span>  %let dataset_label=;</div>
<div class="line"><a id="l00101" name="l00101"></a><span class="lineno">  101</span>  %let _itemGroupOID=;</div>
<div class="line"><a id="l00102" name="l00102"></a><span class="lineno">  102</span>  %let _studyOID=;</div>
<div class="line"><a id="l00103" name="l00103"></a><span class="lineno">  103</span>  %let _metaDataVersionOID=;</div>
<div class="line"><a id="l00104" name="l00104"></a><span class="lineno">  104</span>  %let creationDateTime=%sysfunc(datetime(), is8601dt.);</div>
<div class="line"><a id="l00105" name="l00105"></a><span class="lineno">  105</span>  %let modifiedDateTime=;</div>
<div class="line"><a id="l00106" name="l00106"></a><span class="lineno">  106</span>  %let releaseCreated=;</div>
<div class="line"><a id="l00107" name="l00107"></a><span class="lineno">  107</span>  %let hostCreated=;</div>
<div class="line"><a id="l00108" name="l00108"></a><span class="lineno">  108</span>  %let _create_temp_dataset_sas=0;</div>
<div class="line"><a id="l00109" name="l00109"></a><span class="lineno">  109</span> </div>
<div class="line"><a id="l00110" name="l00110"></a><span class="lineno">  110</span>  %******************************************************************************;</div>
<div class="line"><a id="l00111" name="l00111"></a><span class="lineno">  111</span>  %* Parameter checks                                                           *;</div>
<div class="line"><a id="l00112" name="l00112"></a><span class="lineno">  112</span>  %******************************************************************************;</div>
<div class="line"><a id="l00113" name="l00113"></a><span class="lineno">  113</span> </div>
<div class="line"><a id="l00114" name="l00114"></a><span class="lineno">  114</span>  %* Check <span class="keywordflow">for</span> missing parameters ;</div>
<div class="line"><a id="l00115" name="l00115"></a><span class="lineno">  115</span>  %let _Missing=;</div>
<div class="line"><a id="l00116" name="l00116"></a><span class="lineno">  116</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(dataset)=, <span class="keywordtype">boolean</span>) %then %let _Missing = &amp;_Missing dataset;</div>
<div class="line"><a id="l00117" name="l00117"></a><span class="lineno">  117</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(usemetadata)=, <span class="keywordtype">boolean</span>) %then %let _Missing = &amp;_Missing usemetadata;</div>
<div class="line"><a id="l00118" name="l00118"></a><span class="lineno">  118</span> </div>
<div class="line"><a id="l00119" name="l00119"></a><span class="lineno">  119</span>  %<span class="keywordflow">if</span> %length(&amp;_Missing) gt 0</div>
<div class="line"><a id="l00120" name="l00120"></a><span class="lineno">  120</span>    %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00121" name="l00121"></a><span class="lineno">  121</span>      %put ERR%str(OR): [&amp;sysmacroname] Required macro parameter(s) missing: &amp;_Missing;</div>
<div class="line"><a id="l00122" name="l00122"></a><span class="lineno">  122</span>      %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00123" name="l00123"></a><span class="lineno">  123</span>    %end;</div>
<div class="line"><a id="l00124" name="l00124"></a><span class="lineno">  124</span> </div>
<div class="line"><a id="l00125" name="l00125"></a><span class="lineno">  125</span>  %* Check <span class="keywordflow">for</span> non-existing dataset ;</div>
<div class="line"><a id="l00126" name="l00126"></a><span class="lineno">  126</span>  %<span class="keywordflow">if</span> not %sysfunc(exist(&amp;dataset)) %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00127" name="l00127"></a><span class="lineno">  127</span>    %put ERR%str(OR): [&amp;sysmacroname] Dataset &amp;=dataset does not exist.;</div>
<div class="line"><a id="l00128" name="l00128"></a><span class="lineno">  128</span>    %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00129" name="l00129"></a><span class="lineno">  129</span>  %end;</div>
<div class="line"><a id="l00130" name="l00130"></a><span class="lineno">  130</span> </div>
<div class="line"><a id="l00131" name="l00131"></a><span class="lineno">  131</span>  %* Specify either jsonpath or jsonfref;</div>
<div class="line"><a id="l00132" name="l00132"></a><span class="lineno">  132</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(jsonpath)=, <span class="keywordtype">boolean</span>) and %sysevalf(%superq(jsonfref)=, <span class="keywordtype">boolean</span>) %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00133" name="l00133"></a><span class="lineno">  133</span>      %put ERR%str(OR): [&amp;sysmacroname] Both jsonpath and jsonfref are missing. Specify one of them.;</div>
<div class="line"><a id="l00134" name="l00134"></a><span class="lineno">  134</span>      %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00135" name="l00135"></a><span class="lineno">  135</span>  %end;</div>
<div class="line"><a id="l00136" name="l00136"></a><span class="lineno">  136</span> </div>
<div class="line"><a id="l00137" name="l00137"></a><span class="lineno">  137</span> </div>
<div class="line"><a id="l00138" name="l00138"></a><span class="lineno">  138</span>  %* Specify either jsonpath or jsonfref;</div>
<div class="line"><a id="l00139" name="l00139"></a><span class="lineno">  139</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(jsonpath)=, <span class="keywordtype">boolean</span>)=0 and %sysevalf(%superq(jsonfref)=, <span class="keywordtype">boolean</span>)=0 %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00140" name="l00140"></a><span class="lineno">  140</span>      %put ERR%str(OR): [&amp;sysmacroname] Specify either jsonpath or jsonfref, but not both.;</div>
<div class="line"><a id="l00141" name="l00141"></a><span class="lineno">  141</span>      %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00142" name="l00142"></a><span class="lineno">  142</span>  %end;</div>
<div class="line"><a id="l00143" name="l00143"></a><span class="lineno">  143</span> </div>
<div class="line"><a id="l00144" name="l00144"></a><span class="lineno">  144</span>  %* Check <span class="keywordflow">for</span> non-assigned jsonfref;</div>
<div class="line"><a id="l00145" name="l00145"></a><span class="lineno">  145</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(jsonfref)=, <span class="keywordtype">boolean</span>)=0 %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00146" name="l00146"></a><span class="lineno">  146</span>    %<span class="keywordflow">if</span> %sysfunc(fileref(&amp;jsonfref)) gt 0 %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00147" name="l00147"></a><span class="lineno">  147</span>      %put ERR%str(OR): [&amp;sysmacroname] JSON file reference &amp;=jsonfref is not assigned.;</div>
<div class="line"><a id="l00148" name="l00148"></a><span class="lineno">  148</span>      %put %sysfunc(sysmsg());</div>
<div class="line"><a id="l00149" name="l00149"></a><span class="lineno">  149</span>      %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00150" name="l00150"></a><span class="lineno">  150</span>    %end;</div>
<div class="line"><a id="l00151" name="l00151"></a><span class="lineno">  151</span>  %end;</div>
<div class="line"><a id="l00152" name="l00152"></a><span class="lineno">  152</span> </div>
<div class="line"><a id="l00153" name="l00153"></a><span class="lineno">  153</span>  %* Rule: usemetadata has to be Y or N  *;</div>
<div class="line"><a id="l00154" name="l00154"></a><span class="lineno">  154</span>  %<span class="keywordflow">if</span> <span class="stringliteral">&quot;%substr(%upcase(&amp;usemetadata),1,1)&quot;</span> ne <span class="stringliteral">&quot;Y&quot;</span> and <span class="stringliteral">&quot;%substr(%upcase(&amp;usemetadata),1,1)&quot;</span> ne <span class="stringliteral">&quot;N&quot;</span> %then</div>
<div class="line"><a id="l00155" name="l00155"></a><span class="lineno">  155</span>  %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00156" name="l00156"></a><span class="lineno">  156</span>    %put ERR%str(OR): [&amp;sysmacroname] Required macro parameter &amp;=usemetadata must be Y or N.;</div>
<div class="line"><a id="l00157" name="l00157"></a><span class="lineno">  157</span>    %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00158" name="l00158"></a><span class="lineno">  158</span>  %end;</div>
<div class="line"><a id="l00159" name="l00159"></a><span class="lineno">  159</span> </div>
<div class="line"><a id="l00160" name="l00160"></a><span class="lineno">  160</span>  %* Rule: when usemetadata eq Y then metadatalib can not be empty *;</div>
<div class="line"><a id="l00161" name="l00161"></a><span class="lineno">  161</span>  %<span class="keywordflow">if</span> <span class="stringliteral">&quot;%substr(%upcase(&amp;usemetadata),1,1)&quot;</span> eq <span class="stringliteral">&quot;Y&quot;</span> and %sysevalf(%superq(metadatalib)=, <span class="keywordtype">boolean</span>) %then</div>
<div class="line"><a id="l00162" name="l00162"></a><span class="lineno">  162</span>  %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00163" name="l00163"></a><span class="lineno">  163</span>    %put ERR%str(OR): [&amp;sysmacroname] When usemetadata=Y, then parameter metadatalib can not be empty.;</div>
<div class="line"><a id="l00164" name="l00164"></a><span class="lineno">  164</span>    %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00165" name="l00165"></a><span class="lineno">  165</span>  %end;</div>
<div class="line"><a id="l00166" name="l00166"></a><span class="lineno">  166</span> </div>
<div class="line"><a id="l00167" name="l00167"></a><span class="lineno">  167</span>  %<span class="keywordflow">if</span> %sysevalf(%superq(metadatalib)=, <span class="keywordtype">boolean</span>)=0 %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00168" name="l00168"></a><span class="lineno">  168</span>    %<span class="keywordflow">if</span> (%sysfunc(libref(&amp;metadatalib)) ne 0 ) %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00169" name="l00169"></a><span class="lineno">  169</span>      %put ERR%str(OR): [&amp;sysmacroname] metadatalib library &amp;=metadatalib has not been assigned.;</div>
<div class="line"><a id="l00170" name="l00170"></a><span class="lineno">  170</span>      %put %sysfunc(sysmsg());</div>
<div class="line"><a id="l00171" name="l00171"></a><span class="lineno">  171</span>      %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00172" name="l00172"></a><span class="lineno">  172</span>    %end;</div>
<div class="line"><a id="l00173" name="l00173"></a><span class="lineno">  173</span>  %end;</div>
<div class="line"><a id="l00174" name="l00174"></a><span class="lineno">  174</span> </div>
<div class="line"><a id="l00175" name="l00175"></a><span class="lineno">  175</span>  %* Rule: when usemetadata eq Y then metadata datasets need to exist in the metadatalib library *;</div>
<div class="line"><a id="l00176" name="l00176"></a><span class="lineno">  176</span>  %<span class="keywordflow">if</span> <span class="stringliteral">&quot;%substr(%upcase(&amp;usemetadata),1,1)&quot;</span> eq <span class="stringliteral">&quot;Y&quot;</span> %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00177" name="l00177"></a><span class="lineno">  177</span>    %<span class="keywordflow">if</span> not %sysfunc(exist(&amp;metadatalib..metadata_study)) %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00178" name="l00178"></a><span class="lineno">  178</span>      %put ERR%str(OR): [&amp;sysmacroname] usemetadata=Y, but &amp;metadatalib..metadata_study does not exist.;</div>
<div class="line"><a id="l00179" name="l00179"></a><span class="lineno">  179</span>      %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00180" name="l00180"></a><span class="lineno">  180</span>    %end;</div>
<div class="line"><a id="l00181" name="l00181"></a><span class="lineno">  181</span>    %<span class="keywordflow">if</span> not %sysfunc(exist(&amp;metadatalib..metadata_tables)) %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00182" name="l00182"></a><span class="lineno">  182</span>      %put ERR%str(OR): [&amp;sysmacroname] usemetadata=Y, but &amp;metadatalib..metadata_tables does not exist.;</div>
<div class="line"><a id="l00183" name="l00183"></a><span class="lineno">  183</span>      %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00184" name="l00184"></a><span class="lineno">  184</span>    %end;</div>
<div class="line"><a id="l00185" name="l00185"></a><span class="lineno">  185</span>    %<span class="keywordflow">if</span> not %sysfunc(exist(&amp;metadatalib..metadata_columns)) %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00186" name="l00186"></a><span class="lineno">  186</span>      %put ERR%str(OR): [&amp;sysmacroname] usemetadata=Y, but &amp;metadatalib..metadata_columns does not exist.;</div>
<div class="line"><a id="l00187" name="l00187"></a><span class="lineno">  187</span>      %<span class="keywordflow">goto</span> exit_macro;</div>
<div class="line"><a id="l00188" name="l00188"></a><span class="lineno">  188</span>    %end;</div>
<div class="line"><a id="l00189" name="l00189"></a><span class="lineno">  189</span>  %end;</div>
<div class="line"><a id="l00190" name="l00190"></a><span class="lineno">  190</span> </div>
<div class="line"><a id="l00191" name="l00191"></a><span class="lineno">  191</span>  %* Rule: when usemetadata eq Y then decimalVariables will not be used *;</div>
<div class="line"><a id="l00192" name="l00192"></a><span class="lineno">  192</span>  %<span class="keywordflow">if</span> <span class="stringliteral">&quot;%substr(%upcase(&amp;usemetadata),1,1)&quot;</span> eq <span class="stringliteral">&quot;Y&quot;</span> %then %<span class="keywordflow">do</span>;</div>
<div class="line"><a id="l00193" name="l00193"></a><span class="lineno">  193</span>    %<span class="keywordflow">if</span> %sysevalf(%superq(decimalVariables)=, <span class="keywordtype">boolean</span>)=0</div>
<div class="line"><a id="l00194" name="l00194"></a><span class="lineno">  194</span>        %then %put WAR%str(NING): [&amp;sysmacroname] When macro parameter &amp;=usemetadata then parameter decimalVariables will not be used.;</div>
<div class="line"><a id="l00195" name="l00195"></a><span class="lineno">  195</span>  %end;</div>
<div class="line"><a id="l00196" name="l00196"></a><span class="lineno">  196</span> </div>
<div class="line"><a id="l00197" name="l00197"></a><span class="lineno">  197</span>  %* Rule: allowed versions *;</div>
<div class="line"><a id="l00198" name="l00198"></a><span class="lineno">  198</span>  %<span class="keywordflow">if</span> %substr(&amp;datasetJSONVersion,1,3) ne %str(1.1) %then</div>
<div class="line"><a id="l00199" name="l00199"></a><span class="lineno">  199</span>  %do;</div>
<div class="line"><a id="l00200" name="l00200"></a><span class="lineno">  200</span>    %put ERR%str(OR): [&amp;sysmacroname] Macro parameter &amp;=datasetJSONVersion. Allowed values: 1.1.x.;</div>
<div class="line"><a id="l00201" name="l00201"></a><span class="lineno">  201</span>    %goto exit_macro;</div>
<div class="line"><a id="l00202" name="l00202"></a><span class="lineno">  202</span>  %end;</div>
<div class="line"><a id="l00203" name="l00203"></a><span class="lineno">  203</span> </div>
<div class="line"><a id="l00204" name="l00204"></a><span class="lineno">  204</span>  %******************************************************************************;</div>
<div class="line"><a id="l00205" name="l00205"></a><span class="lineno">  205</span>  %* End of parameter checks                                                    *;</div>
<div class="line"><a id="l00206" name="l00206"></a><span class="lineno">  206</span>  %******************************************************************************;</div>
<div class="line"><a id="l00207" name="l00207"></a><span class="lineno">  207</span> </div>
<div class="line"><a id="l00208" name="l00208"></a><span class="lineno">  208</span>  <span class="comment">/* Get modifiedDateTime, releaseCreated, hostCreated, number of records */</span></div>
<div class="line"><a id="l00209" name="l00209"></a><span class="lineno">  209</span>  ods listing close;</div>
<div class="line"><a id="l00210" name="l00210"></a><span class="lineno">  210</span>  ods select none;</div>
<div class="line"><a id="l00211" name="l00211"></a><span class="lineno">  211</span>  ods output Attributes=Attributes EngineHost=EngineHost Variables=Variables;</div>
<div class="line"><a id="l00212" name="l00212"></a><span class="lineno">  212</span>    proc contents data=&amp;dataset;</div>
<div class="line"><a id="l00213" name="l00213"></a><span class="lineno">  213</span>    run;</div>
<div class="line"><a id="l00214" name="l00214"></a><span class="lineno">  214</span>  ods output close;</div>
<div class="line"><a id="l00215" name="l00215"></a><span class="lineno">  215</span>  ods select all;</div>
<div class="line"><a id="l00216" name="l00216"></a><span class="lineno">  216</span>  ods listing;</div>
<div class="line"><a id="l00217" name="l00217"></a><span class="lineno">  217</span> </div>
<div class="line"><a id="l00218" name="l00218"></a><span class="lineno">  218</span>  data _null_;</div>
<div class="line"><a id="l00219" name="l00219"></a><span class="lineno">  219</span>      set Attributes;</div>
<div class="line"><a id="l00220" name="l00220"></a><span class="lineno">  220</span>      if Label1 = &quot;Last Modified&quot; then call symputx(&#39;modifiedDateTime&#39;, put(nValue1, E8601DT.));</div>
<div class="line"><a id="l00221" name="l00221"></a><span class="lineno">  221</span>  run;</div>
<div class="line"><a id="l00222" name="l00222"></a><span class="lineno">  222</span> </div>
<div class="line"><a id="l00223" name="l00223"></a><span class="lineno">  223</span>  data _null_;</div>
<div class="line"><a id="l00224" name="l00224"></a><span class="lineno">  224</span>      set EngineHost;</div>
<div class="line"><a id="l00225" name="l00225"></a><span class="lineno">  225</span>      if Label1 = &quot;Release Created&quot; then call symputx(&#39;releaseCreated&#39;, cValue1);</div>
<div class="line"><a id="l00226" name="l00226"></a><span class="lineno">  226</span>      if Label1 = &quot;Host Created&quot; then call symputx(&#39;hostCreated&#39;, cValue1);</div>
<div class="line"><a id="l00227" name="l00227"></a><span class="lineno">  227</span>    run;</div>
<div class="line"><a id="l00228" name="l00228"></a><span class="lineno">  228</span> </div>
<div class="line"><a id="l00229" name="l00229"></a><span class="lineno">  229</span>  %let _records=%cstutilnobs(_cstDataSetName=&amp;dataset);</div>
<div class="line"><a id="l00230" name="l00230"></a><span class="lineno">  230</span> </div>
<div class="line"><a id="l00231" name="l00231"></a><span class="lineno">  231</span>  proc delete data=work.Attributes work.EngineHost;</div>
<div class="line"><a id="l00232" name="l00232"></a><span class="lineno">  232</span>  run;</div>
<div class="line"><a id="l00233" name="l00233"></a><span class="lineno">  233</span> </div>
<div class="line"><a id="l00234" name="l00234"></a><span class="lineno">  234</span>  %if %sysevalf(%superq(sourceSystem)=, <span class="keywordtype">boolean</span>) and</div>
<div class="line"><a id="l00235" name="l00235"></a><span class="lineno">  235</span>    %sysevalf(%superq(hostCreated)=, <span class="keywordtype">boolean</span>)=0 %then %let sourceSystem = %str(SAS on &amp;hostCreated);</div>
<div class="line"><a id="l00236" name="l00236"></a><span class="lineno">  236</span>  %if %sysevalf(%superq(sourceSystemVersion)=, <span class="keywordtype">boolean</span>) and</div>
<div class="line"><a id="l00237" name="l00237"></a><span class="lineno">  237</span>    %sysevalf(%superq(releaseCreated)=, <span class="keywordtype">boolean</span>)=0 %then %let sourceSystemVersion = %str(&amp;releaseCreated);</div>
<div class="line"><a id="l00238" name="l00238"></a><span class="lineno">  238</span> </div>
<div class="line"><a id="l00239" name="l00239"></a><span class="lineno">  239</span> </div>
<div class="line"><a id="l00240" name="l00240"></a><span class="lineno">  240</span>  <span class="comment">/* Create temp SAS dataset */</span></div>
<div class="line"><a id="l00241" name="l00241"></a><span class="lineno">  241</span>  %let dataset_name=%scan(&amp;dataset, -1, %str(.));</div>
<div class="line"><a id="l00242" name="l00242"></a><span class="lineno">  242</span>  %let dataset_new=&amp;dataset;</div>
<div class="line"><a id="l00243" name="l00243"></a><span class="lineno">  243</span>  libname sas&amp;_Random &quot;%sysfunc(pathname(work))/sas&amp;_Random&quot;;</div>
<div class="line"><a id="l00244" name="l00244"></a><span class="lineno">  244</span>  proc copy in=%scan(&amp;dataset, 1, %str(.)) out=sas&amp;_Random memtype=data datecopy;</div>
<div class="line"><a id="l00245" name="l00245"></a><span class="lineno">  245</span>    select &amp;dataset_name;</div>
<div class="line"><a id="l00246" name="l00246"></a><span class="lineno">  246</span>  run;</div>
<div class="line"><a id="l00247" name="l00247"></a><span class="lineno">  247</span>  %let dataset_new=sas&amp;_Random..&amp;dataset_name;</div>
<div class="line"><a id="l00248" name="l00248"></a><span class="lineno">  248</span> </div>
<div class="line"><a id="l00249" name="l00249"></a><span class="lineno">  249</span>  %let _create_temp_dataset_sas=1;</div>
<div class="line"><a id="l00250" name="l00250"></a><span class="lineno">  250</span> </div>
<div class="line"><a id="l00251" name="l00251"></a><span class="lineno">  251</span>  %if %substr(%upcase(&amp;UseMetadata),1,1) eq Y %then %do;</div>
<div class="line"><a id="l00252" name="l00252"></a><span class="lineno">  252</span>    <span class="comment">/* Get StudyOID and metaDataVersionOID from the metadata */</span></div>
<div class="line"><a id="l00253" name="l00253"></a><span class="lineno">  253</span>    proc sql noprint;</div>
<div class="line"><a id="l00254" name="l00254"></a><span class="lineno">  254</span>      %if %sysfunc(exist(&amp;metadatalib..metadata_study)) %then %do;</div>
<div class="line"><a id="l00255" name="l00255"></a><span class="lineno">  255</span>        select studyOID, metaDataVersionOID into :_studyOID trimmed, :_metaDataVersionOID trimmed</div>
<div class="line"><a id="l00256" name="l00256"></a><span class="lineno">  256</span>          from &amp;metadatalib..metadata_study;</div>
<div class="line"><a id="l00257" name="l00257"></a><span class="lineno">  257</span>      %end;</div>
<div class="line"><a id="l00258" name="l00258"></a><span class="lineno">  258</span>    <span class="comment">/* Get dataset label and _itemGroupOID from the metadata */</span></div>
<div class="line"><a id="l00259" name="l00259"></a><span class="lineno">  259</span>      %if %sysfunc(exist(&amp;metadatalib..metadata_tables)) %then %do;</div>
<div class="line"><a id="l00260" name="l00260"></a><span class="lineno">  260</span>        select label, oid into :dataset_label trimmed, :_itemGroupOID trimmed</div>
<div class="line"><a id="l00261" name="l00261"></a><span class="lineno">  261</span>          from &amp;metadatalib..metadata_tables</div>
<div class="line"><a id="l00262" name="l00262"></a><span class="lineno">  262</span>            where upcase(name)=&quot;%upcase(&amp;dataset_name)&quot;;</div>
<div class="line"><a id="l00263" name="l00263"></a><span class="lineno">  263</span>      %end;</div>
<div class="line"><a id="l00264" name="l00264"></a><span class="lineno">  264</span>    quit;</div>
<div class="line"><a id="l00265" name="l00265"></a><span class="lineno">  265</span>  %end;</div>
<div class="line"><a id="l00266" name="l00266"></a><span class="lineno">  266</span> </div>
<div class="line"><a id="l00267" name="l00267"></a><span class="lineno">  267</span>  <span class="comment">/* Get StudyOID, metaDataVersionOID, itemGroupOID, and dataset label */</span></div>
<div class="line"><a id="l00268" name="l00268"></a><span class="lineno">  268</span>  %if %sysevalf(%superq(_studyOID)=, <span class="keywordtype">boolean</span>) and %sysevalf(%superq(studyOId)=, <span class="keywordtype">boolean</span>)=0 %then</div>
<div class="line"><a id="l00269" name="l00269"></a><span class="lineno">  269</span>    %let _studyOID=&amp;studyOId;</div>
<div class="line"><a id="l00270" name="l00270"></a><span class="lineno">  270</span> </div>
<div class="line"><a id="l00271" name="l00271"></a><span class="lineno">  271</span>  %if %sysevalf(%superq(_metaDataVersionOID)=, <span class="keywordtype">boolean</span>) and %sysevalf(%superq(metaDataVersionOID)=, <span class="keywordtype">boolean</span>)=0 %then</div>
<div class="line"><a id="l00272" name="l00272"></a><span class="lineno">  272</span>    %let _metaDataVersionOID=&amp;metaDataVersionOID;</div>
<div class="line"><a id="l00273" name="l00273"></a><span class="lineno">  273</span> </div>
<div class="line"><a id="l00274" name="l00274"></a><span class="lineno">  274</span>  %if %sysevalf(%superq(_itemGroupOID)=, <span class="keywordtype">boolean</span>) %then %let _itemGroupOID=IG.%upcase(&amp;dataset_name);</div>
<div class="line"><a id="l00275" name="l00275"></a><span class="lineno">  275</span> </div>
<div class="line"><a id="l00276" name="l00276"></a><span class="lineno">  276</span>  %if %sysevalf(%superq(dataset_label)=, <span class="keywordtype">boolean</span>) %then</div>
<div class="line"><a id="l00277" name="l00277"></a><span class="lineno">  277</span>    %let dataset_label=%cstutilgetattribute(_cstDataSetName=&amp;dataset_new,_cstAttribute=LABEL);</div>
<div class="line"><a id="l00278" name="l00278"></a><span class="lineno">  278</span>  %if %sysevalf(%superq(dataset_label)=, <span class="keywordtype">boolean</span>) %then</div>
<div class="line"><a id="l00279" name="l00279"></a><span class="lineno">  279</span>    %let dataset_label=&amp;datasetlabel;</div>
<div class="line"><a id="l00280" name="l00280"></a><span class="lineno">  280</span> </div>
<div class="line"><a id="l00281" name="l00281"></a><span class="lineno">  281</span>  %if %sysevalf(%superq(dataset_label)=, <span class="keywordtype">boolean</span>) %then %do;</div>
<div class="line"><a id="l00282" name="l00282"></a><span class="lineno">  282</span>    %put %str(WAR)NING: [&amp;sysmacroname] Dataset &amp;dataset has no dataset label.;</div>
<div class="line"><a id="l00283" name="l00283"></a><span class="lineno">  283</span>  %end;</div>
<div class="line"><a id="l00284" name="l00284"></a><span class="lineno">  284</span> </div>
<div class="line"><a id="l00285" name="l00285"></a><span class="lineno">  285</span>  %put NOTE: DATASET=&amp;dataset_name &amp;=_records &amp;=_itemGroupOID dslabel=%bquote(&amp;dataset_label);</div>
<div class="line"><a id="l00286" name="l00286"></a><span class="lineno">  286</span> </div>
<div class="line"><a id="l00287" name="l00287"></a><span class="lineno">  287</span> </div>
<div class="line"><a id="l00288" name="l00288"></a><span class="lineno">  288</span> </div>
<div class="line"><a id="l00289" name="l00289"></a><span class="lineno">  289</span>  %if %substr(%upcase(&amp;UseMetadata),1,1) eq Y %then %do;</div>
<div class="line"><a id="l00290" name="l00290"></a><span class="lineno">  290</span>    <span class="comment">/* Get column metadata - oid, label, type, length, displayformat, keysequence  */</span></div>
<div class="line"><a id="l00291" name="l00291"></a><span class="lineno">  291</span>    data work._column_metadata(keep=OID name label order datatype targetdatatype length displayFormat keySequence);</div>
<div class="line"><a id="l00292" name="l00292"></a><span class="lineno">  292</span>      retain OID name label datatype length displayFormat keySequence;</div>
<div class="line"><a id="l00293" name="l00293"></a><span class="lineno">  293</span>      set &amp;metadatalib..metadata_columns(</div>
<div class="line"><a id="l00294" name="l00294"></a><span class="lineno">  294</span>          where=(upcase(dataset_name) = %upcase(&quot;&amp;dataset_name&quot;))</div>
<div class="line"><a id="l00295" name="l00295"></a><span class="lineno">  295</span>          drop=length</div>
<div class="line"><a id="l00296" name="l00296"></a><span class="lineno">  296</span>          rename=(json_length=length)</div>
<div class="line"><a id="l00297" name="l00297"></a><span class="lineno">  297</span>        );</div>
<div class="line"><a id="l00298" name="l00298"></a><span class="lineno">  298</span>        if missing(oid) then putlog &quot;WAR&quot; &quot;NING: [&amp;sysmacroname] Missing oid for variable: &amp;dataset.&quot; name ;</div>
<div class="line"><a id="l00299" name="l00299"></a><span class="lineno">  299</span>        if missing(name) then putlog &quot;WAR&quot; &quot;NING: [&amp;sysmacroname] Missing name for variable in dataset &amp;dataset: &quot; oid ;</div>
<div class="line"><a id="l00300" name="l00300"></a><span class="lineno">  300</span>        if missing(label) then do;</div>
<div class="line"><a id="l00301" name="l00301"></a><span class="lineno">  301</span>          putlog &quot;WAR&quot; &quot;NING: [&amp;sysmacroname] Missing label for variable: &amp;dataset..&quot; name +(-1) &quot;, &quot; oid= +(-1) &quot;.&quot;;</div>
<div class="line"><a id="l00302" name="l00302"></a><span class="lineno">  302</span>        end;</div>
<div class="line"><a id="l00303" name="l00303"></a><span class="lineno">  303</span>        if missing(datatype) then putlog &quot;WAR&quot; &quot;NING: [&amp;sysmacroname] Missing dataType for variable: &amp;dataset..&quot; name +(-1) &quot;, &quot; oid=;</div>
<div class="line"><a id="l00304" name="l00304"></a><span class="lineno">  304</span> </div>
<div class="line"><a id="l00305" name="l00305"></a><span class="lineno">  305</span>        if dataType in (&quot;date&quot;, &quot;datetime&quot;, &quot;time&quot;) and targetDataType = &quot;integer&quot; and missing(displayFormat)</div>
<div class="line"><a id="l00306" name="l00306"></a><span class="lineno">  306</span>          then putlog &quot;WAR&quot; &quot;NING: [&amp;sysmacroname] Missing displayFormat for variable: &amp;dataset..&quot; name +(-1) &quot;, &quot; oid= +(-1) &quot;, &quot; dataType= +(-1) &quot;, &quot; targetDataType=;</div>
<div class="line"><a id="l00307" name="l00307"></a><span class="lineno">  307</span> </div>
<div class="line"><a id="l00308" name="l00308"></a><span class="lineno">  308</span>    run;</div>
<div class="line"><a id="l00309" name="l00309"></a><span class="lineno">  309</span> </div>
<div class="line"><a id="l00310" name="l00310"></a><span class="lineno">  310</span> </div>
<div class="line"><a id="l00311" name="l00311"></a><span class="lineno">  311</span>    <span class="comment">/* Check lengths */</span></div>
<div class="line"><a id="l00312" name="l00312"></a><span class="lineno">  312</span>    proc contents noprint varnum data=&amp;dataset_new</div>
<div class="line"><a id="l00313" name="l00313"></a><span class="lineno">  313</span>      out=work.column_metadata_sas(keep=name type length varnum);</div>
<div class="line"><a id="l00314" name="l00314"></a><span class="lineno">  314</span>    run;</div>
<div class="line"><a id="l00315" name="l00315"></a><span class="lineno">  315</span> </div>
<div class="line"><a id="l00316" name="l00316"></a><span class="lineno">  316</span>    proc sql noprint;</div>
<div class="line"><a id="l00317" name="l00317"></a><span class="lineno">  317</span>      create table work.column_metadata as</div>
<div class="line"><a id="l00318" name="l00318"></a><span class="lineno">  318</span>      select</div>
<div class="line"><a id="l00319" name="l00319"></a><span class="lineno">  319</span>        t2.name as sas_name,</div>
<div class="line"><a id="l00320" name="l00320"></a><span class="lineno">  320</span>        t2.length as sas_length,</div>
<div class="line"><a id="l00321" name="l00321"></a><span class="lineno">  321</span>        t2.type as sas_type,</div>
<div class="line"><a id="l00322" name="l00322"></a><span class="lineno">  322</span>        t2.varnum,</div>
<div class="line"><a id="l00323" name="l00323"></a><span class="lineno">  323</span>        t1.*</div>
<div class="line"><a id="l00324" name="l00324"></a><span class="lineno">  324</span>        from work.column_metadata_sas t2</div>
<div class="line"><a id="l00325" name="l00325"></a><span class="lineno">  325</span>          left join work._column_metadata t1</div>
<div class="line"><a id="l00326" name="l00326"></a><span class="lineno">  326</span>        on t1.name = t2.name</div>
<div class="line"><a id="l00327" name="l00327"></a><span class="lineno">  327</span>        order by varnum</div>
<div class="line"><a id="l00328" name="l00328"></a><span class="lineno">  328</span>        ;</div>
<div class="line"><a id="l00329" name="l00329"></a><span class="lineno">  329</span>    quit ;</div>
<div class="line"><a id="l00330" name="l00330"></a><span class="lineno">  330</span> </div>
<div class="line"><a id="l00331" name="l00331"></a><span class="lineno">  331</span>    data work.column_metadata(drop=sas_type sas_length sas_name order varnum);</div>
<div class="line"><a id="l00332" name="l00332"></a><span class="lineno">  332</span>      set work.column_metadata;</div>
<div class="line"><a id="l00333" name="l00333"></a><span class="lineno">  333</span>      if (sas_type=2) and (not missing(length)) and (length lt sas_length)</div>
<div class="line"><a id="l00334" name="l00334"></a><span class="lineno">  334</span>        then putlog &#39;WAR&#39; &#39;NING:&#39; &quot; [&amp;sysmacroname] &amp;dataset..&quot; name +(-1) &quot;: metadata length is smaller than SAS length - &quot;</div>
<div class="line"><a id="l00335" name="l00335"></a><span class="lineno">  335</span>                    length= +(-1) &quot;, SAS length=&quot; sas_length;</div>
<div class="line"><a id="l00336" name="l00336"></a><span class="lineno">  336</span>      if missing(name) then do;</div>
<div class="line"><a id="l00337" name="l00337"></a><span class="lineno">  337</span>        putlog &#39;WAR&#39; &#39;NING:&#39; &quot;[&amp;sysmacroname] &amp;dataset..&quot; sas_name</div>
<div class="line"><a id="l00338" name="l00338"></a><span class="lineno">  338</span>                +(-1) &quot;: variable is missing from metadata. SAS metadata will be used.&quot;;</div>
<div class="line"><a id="l00339" name="l00339"></a><span class="lineno">  339</span>        OID = cats(&quot;IT&quot;, &quot;.&quot;, upcase(&quot;&amp;dataset_name&quot;), &quot;.&quot;, upcase(sas_name));</div>
<div class="line"><a id="l00340" name="l00340"></a><span class="lineno">  340</span>        name = sas_name;</div>
<div class="line"><a id="l00341" name="l00341"></a><span class="lineno">  341</span>        length = sas_length;</div>
<div class="line"><a id="l00342" name="l00342"></a><span class="lineno">  342</span>        if sas_type=1 then dataType=&quot;<span class="keywordtype">float</span>&quot;;</div>
<div class="line"><a id="l00343" name="l00343"></a><span class="lineno">  343</span>                      else dataType=&quot;<span class="keywordtype">string</span>&quot;;</div>
<div class="line"><a id="l00344" name="l00344"></a><span class="lineno">  344</span>        label = propcase(name);</div>
<div class="line"><a id="l00345" name="l00345"></a><span class="lineno">  345</span>      end;</div>
<div class="line"><a id="l00346" name="l00346"></a><span class="lineno">  346</span>    run;</div>
<div class="line"><a id="l00347" name="l00347"></a><span class="lineno">  347</span> </div>
<div class="line"><a id="l00348" name="l00348"></a><span class="lineno">  348</span>    proc delete data=work._column_metadata;</div>
<div class="line"><a id="l00349" name="l00349"></a><span class="lineno">  349</span>    run;</div>
<div class="line"><a id="l00350" name="l00350"></a><span class="lineno">  350</span>    proc delete data=work.column_metadata_sas;</div>
<div class="line"><a id="l00351" name="l00351"></a><span class="lineno">  351</span>    run;</div>
<div class="line"><a id="l00352" name="l00352"></a><span class="lineno">  352</span> </div>
<div class="line"><a id="l00353" name="l00353"></a><span class="lineno">  353</span>  %end;</div>
<div class="line"><a id="l00354" name="l00354"></a><span class="lineno">  354</span>  %else %do; %* UseMetadata ne N;</div>
<div class="line"><a id="l00355" name="l00355"></a><span class="lineno">  355</span> </div>
<div class="line"><a id="l00356" name="l00356"></a><span class="lineno">  356</span>    %create_template(type=COLUMNS, out=work.column_metadata_template);</div>
<div class="line"><a id="l00357" name="l00357"></a><span class="lineno">  357</span>    <span class="comment">/* Get column metadata from the datasets - label, type, length, format and derive as much as we can */</span></div>
<div class="line"><a id="l00358" name="l00358"></a><span class="lineno">  358</span>    proc contents noprint varnum data=&amp;dataset_new</div>
<div class="line"><a id="l00359" name="l00359"></a><span class="lineno">  359</span>      out=work.column_metadata(</div>
<div class="line"><a id="l00360" name="l00360"></a><span class="lineno">  360</span>        keep=varnum name type format formatl formatd length label</div>
<div class="line"><a id="l00361" name="l00361"></a><span class="lineno">  361</span>        rename=(format=displayFormat type=sas_type)</div>
<div class="line"><a id="l00362" name="l00362"></a><span class="lineno">  362</span>      );</div>
<div class="line"><a id="l00363" name="l00363"></a><span class="lineno">  363</span>    run;</div>
<div class="line"><a id="l00364" name="l00364"></a><span class="lineno">  364</span> </div>
<div class="line"><a id="l00365" name="l00365"></a><span class="lineno">  365</span>    proc sort data=work.column_metadata;</div>
<div class="line"><a id="l00366" name="l00366"></a><span class="lineno">  366</span>      by varnum;</div>
<div class="line"><a id="l00367" name="l00367"></a><span class="lineno">  367</span>    run;</div>
<div class="line"><a id="l00368" name="l00368"></a><span class="lineno">  368</span> </div>
<div class="line"><a id="l00369" name="l00369"></a><span class="lineno">  369</span>    data work.column_metadata(drop=sas_type varnum formatl formatd);</div>
<div class="line"><a id="l00370" name="l00370"></a><span class="lineno">  370</span>      retain OID name label dataType targetDataType length;</div>
<div class="line"><a id="l00371" name="l00371"></a><span class="lineno">  371</span>      length OID $ 128 dataType targetDataType $ 32;</div>
<div class="line"><a id="l00372" name="l00372"></a><span class="lineno">  372</span>      set work.column_metadata_template work.column_metadata;</div>
<div class="line"><a id="l00373" name="l00373"></a><span class="lineno">  373</span>      targetDataType = &quot;&quot;;</div>
<div class="line"><a id="l00374" name="l00374"></a><span class="lineno">  374</span>      OID = cats(&quot;IT&quot;, &quot;.&quot;, upcase(&quot;&amp;dataset_name&quot;), &quot;.&quot;, upcase(name));</div>
<div class="line"><a id="l00375" name="l00375"></a><span class="lineno">  375</span>      if sas_type=1 then do;</div>
<div class="line"><a id="l00376" name="l00376"></a><span class="lineno">  376</span>        dataType=&quot;<span class="keywordtype">float</span>&quot;;</div>
<div class="line"><a id="l00377" name="l00377"></a><span class="lineno">  377</span>        length = .;</div>
<div class="line"><a id="l00378" name="l00378"></a><span class="lineno">  378</span>      end;</div>
<div class="line"><a id="l00379" name="l00379"></a><span class="lineno">  379</span>      else do;</div>
<div class="line"><a id="l00380" name="l00380"></a><span class="lineno">  380</span>        dataType=&quot;<span class="keywordtype">string</span>&quot;;</div>
<div class="line"><a id="l00381" name="l00381"></a><span class="lineno">  381</span>      end;</div>
<div class="line"><a id="l00382" name="l00382"></a><span class="lineno">  382</span>      <span class="comment">/* Numeric datetime, date, and time variables will be transfered as ISO 8601 strings */</span></div>
<div class="line"><a id="l00383" name="l00383"></a><span class="lineno">  383</span>      if not (missing(displayFormat)) then do;</div>
<div class="line"><a id="l00384" name="l00384"></a><span class="lineno">  384</span>        if sas_type = 1 and (find(displayFormat, &quot;E8601DA&quot;, &#39;it&#39;) or find(displayFormat, &quot;DATE&quot;, &#39;it&#39;)) then do;</div>
<div class="line"><a id="l00385" name="l00385"></a><span class="lineno">  385</span>          dataType = &quot;date&quot;;</div>
<div class="line"><a id="l00386" name="l00386"></a><span class="lineno">  386</span>          targetDataType = &quot;integer&quot;;</div>
<div class="line"><a id="l00387" name="l00387"></a><span class="lineno">  387</span>        end;</div>
<div class="line"><a id="l00388" name="l00388"></a><span class="lineno">  388</span>        if sas_type = 1 and (find(displayFormat, &quot;E8601TM&quot;, &#39;it&#39;) or find(displayFormat, &quot;TIME&quot;, &#39;it&#39;)) then do;</div>
<div class="line"><a id="l00389" name="l00389"></a><span class="lineno">  389</span>          dataType = &quot;time&quot;;</div>
<div class="line"><a id="l00390" name="l00390"></a><span class="lineno">  390</span>          targetDataType = &quot;integer&quot;;</div>
<div class="line"><a id="l00391" name="l00391"></a><span class="lineno">  391</span>        end;</div>
<div class="line"><a id="l00392" name="l00392"></a><span class="lineno">  392</span>        if sas_type = 1 and (find(displayFormat, &quot;E8601DT&quot;, &#39;it&#39;) or find(displayFormat, &quot;DATETIME&quot;, &#39;it&#39;)) then do;</div>
<div class="line"><a id="l00393" name="l00393"></a><span class="lineno">  393</span>          dataType = &quot;datetime&quot;;</div>
<div class="line"><a id="l00394" name="l00394"></a><span class="lineno">  394</span>          targetDataType = &quot;integer&quot;;</div>
<div class="line"><a id="l00395" name="l00395"></a><span class="lineno">  395</span>        end;</div>
<div class="line"><a id="l00396" name="l00396"></a><span class="lineno">  396</span>      end;</div>
<div class="line"><a id="l00397" name="l00397"></a><span class="lineno">  397</span> </div>
<div class="line"><a id="l00398" name="l00398"></a><span class="lineno">  398</span>      if formatl gt 0 then displayFormat=cats(displayFormat, put(formatl, best.), &quot;.&quot;);</div>
<div class="line"><a id="l00399" name="l00399"></a><span class="lineno">  399</span>      if formatd gt 0 then displayFormat=cats(displayFormat, put(formatd, best.));</div>
<div class="line"><a id="l00400" name="l00400"></a><span class="lineno">  400</span>      %* put a dot on the end of format if we are still missing it;</div>
<div class="line"><a id="l00401" name="l00401"></a><span class="lineno">  401</span>      if (not missing(displayFormat)) and index(displayFormat,&#39;.&#39;)=0 then displayFormat=strip(displayFormat)||&#39;.&#39;;</div>
<div class="line"><a id="l00402" name="l00402"></a><span class="lineno">  402</span>      if missing(label) then do;</div>
<div class="line"><a id="l00403" name="l00403"></a><span class="lineno">  403</span>        putlog &quot;WAR&quot; &quot;NING: [&amp;sysmacroname] Missing label for variable &amp;dataset..&quot; name +(-1) &quot;, &quot; oid= +(-1) &quot;.&quot;;</div>
<div class="line"><a id="l00404" name="l00404"></a><span class="lineno">  404</span>      end;</div>
<div class="line"><a id="l00405" name="l00405"></a><span class="lineno">  405</span>      if missing(dataType) then putlog &quot;WAR&quot; &quot;NING: [&amp;sysmacroname] Missing type for variable &amp;dataset..&quot; name +(-1) &quot;, &quot;  oid=;</div>
<div class="line"><a id="l00406" name="l00406"></a><span class="lineno">  406</span>    run;</div>
<div class="line"><a id="l00407" name="l00407"></a><span class="lineno">  407</span> </div>
<div class="line"><a id="l00408" name="l00408"></a><span class="lineno">  408</span>  %end;</div>
<div class="line"><a id="l00409" name="l00409"></a><span class="lineno">  409</span> </div>
<div class="line"><a id="l00410" name="l00410"></a><span class="lineno">  410</span>  %************************************************************;</div>
<div class="line"><a id="l00411" name="l00411"></a><span class="lineno">  411</span>  <span class="comment">/* Convert numeric variables to decimal strings if needed */</span></div>
<div class="line"><a id="l00412" name="l00412"></a><span class="lineno">  412</span>  %************************************************************;</div>
<div class="line"><a id="l00413" name="l00413"></a><span class="lineno">  413</span>  %if &quot;%substr(%upcase(&amp;usemetadata),1,1)&quot; eq &quot;Y&quot; %then %do;</div>
<div class="line"><a id="l00414" name="l00414"></a><span class="lineno">  414</span>    %let _decimal_variables=;</div>
<div class="line"><a id="l00415" name="l00415"></a><span class="lineno">  415</span>    proc sql noprint;</div>
<div class="line"><a id="l00416" name="l00416"></a><span class="lineno">  416</span>      select name into :_decimal_variables separated by &#39; &#39;</div>
<div class="line"><a id="l00417" name="l00417"></a><span class="lineno">  417</span>        from work.column_metadata</div>
<div class="line"><a id="l00418" name="l00418"></a><span class="lineno">  418</span>        where dataType=&#39;decimal&#39; and targetDataType=&#39;decimal&#39;;</div>
<div class="line"><a id="l00419" name="l00419"></a><span class="lineno">  419</span>    quit;</div>
<div class="line"><a id="l00420" name="l00420"></a><span class="lineno">  420</span>  %end;</div>
<div class="line"><a id="l00421" name="l00421"></a><span class="lineno">  421</span>  %else %do;</div>
<div class="line"><a id="l00422" name="l00422"></a><span class="lineno">  422</span>    %if %sysevalf(%superq(decimalVariables)=, <span class="keywordtype">boolean</span>)=0 %then %do;</div>
<div class="line"><a id="l00423" name="l00423"></a><span class="lineno">  423</span>      data work.column_metadata;</div>
<div class="line"><a id="l00424" name="l00424"></a><span class="lineno">  424</span>        set work.column_metadata;</div>
<div class="line"><a id="l00425" name="l00425"></a><span class="lineno">  425</span>          %do _count=1 %to %sysfunc(countw(&amp;decimalVariables, %str(&#39; &#39;)));</div>
<div class="line"><a id="l00426" name="l00426"></a><span class="lineno">  426</span>            if upcase(name)=upcase(&quot;%scan(&amp;decimalVariables, &amp;_count)&quot;) then do;</div>
<div class="line"><a id="l00427" name="l00427"></a><span class="lineno">  427</span>              dataType=&quot;decimal&quot;;</div>
<div class="line"><a id="l00428" name="l00428"></a><span class="lineno">  428</span>              targetDataType=&quot;decimal&quot;;</div>
<div class="line"><a id="l00429" name="l00429"></a><span class="lineno">  429</span>            end;</div>
<div class="line"><a id="l00430" name="l00430"></a><span class="lineno">  430</span>          %end;</div>
<div class="line"><a id="l00431" name="l00431"></a><span class="lineno">  431</span>      run;</div>
<div class="line"><a id="l00432" name="l00432"></a><span class="lineno">  432</span>      %let _decimal_variables=&amp;decimalVariables;</div>
<div class="line"><a id="l00433" name="l00433"></a><span class="lineno">  433</span>    %end;</div>
<div class="line"><a id="l00434" name="l00434"></a><span class="lineno">  434</span>  %end;</div>
<div class="line"><a id="l00435" name="l00435"></a><span class="lineno">  435</span>  %if %sysevalf(%superq(_decimal_variables)=, <span class="keywordtype">boolean</span>)=0 %then %do;</div>
<div class="line"><a id="l00436" name="l00436"></a><span class="lineno">  436</span>    %put NOTE: [&amp;sysmacroname] &amp;dataset: numeric variables converted to strings: &amp;_decimal_variables;</div>
<div class="line"><a id="l00437" name="l00437"></a><span class="lineno">  437</span>    %convert_num_to_char(ds=&amp;dataset_new, outds=&amp;dataset_new, varlist=&amp;_decimal_variables);</div>
<div class="line"><a id="l00438" name="l00438"></a><span class="lineno">  438</span>  %end;</div>
<div class="line"><a id="l00439" name="l00439"></a><span class="lineno">  439</span> </div>
<div class="line"><a id="l00440" name="l00440"></a><span class="lineno">  440</span>  %************************************************************;</div>
<div class="line"><a id="l00441" name="l00441"></a><span class="lineno">  441</span>  <span class="comment">/* Convert numeric ISO 8601 variables to strings if needed  */</span></div>
<div class="line"><a id="l00442" name="l00442"></a><span class="lineno">  442</span>  %************************************************************;</div>
<div class="line"><a id="l00443" name="l00443"></a><span class="lineno">  443</span>  %let _iso8601_variables=;</div>
<div class="line"><a id="l00444" name="l00444"></a><span class="lineno">  444</span>  proc sql noprint;</div>
<div class="line"><a id="l00445" name="l00445"></a><span class="lineno">  445</span>    select name into :_iso8601_variables separated by &#39; &#39;</div>
<div class="line"><a id="l00446" name="l00446"></a><span class="lineno">  446</span>      from work.column_metadata</div>
<div class="line"><a id="l00447" name="l00447"></a><span class="lineno">  447</span>      where (datatype in (&#39;datetime&#39;, &#39;date&#39;, &#39;time&#39;)) and (targetdatatype = &#39;integer&#39;);</div>
<div class="line"><a id="l00448" name="l00448"></a><span class="lineno">  448</span>  quit;</div>
<div class="line"><a id="l00449" name="l00449"></a><span class="lineno">  449</span> </div>
<div class="line"><a id="l00450" name="l00450"></a><span class="lineno">  450</span>  %if %sysevalf(%superq(_iso8601_variables)=, <span class="keywordtype">boolean</span>)=0 %then %do;</div>
<div class="line"><a id="l00451" name="l00451"></a><span class="lineno">  451</span>    %put NOTE: [&amp;sysmacroname] &amp;dataset: numeric ISO 8601 variables converted to strings: &amp;_iso8601_variables;</div>
<div class="line"><a id="l00452" name="l00452"></a><span class="lineno">  452</span>  %end;</div>
<div class="line"><a id="l00453" name="l00453"></a><span class="lineno">  453</span> </div>
<div class="line"><a id="l00454" name="l00454"></a><span class="lineno">  454</span>  <span class="comment">/* Attach the right formats */</span></div>
<div class="line"><a id="l00455" name="l00455"></a><span class="lineno">  455</span> </div>
<div class="line"><a id="l00456" name="l00456"></a><span class="lineno">  456</span>  data work.column_metadata_formats;</div>
<div class="line"><a id="l00457" name="l00457"></a><span class="lineno">  457</span>    length dataset_name $32;</div>
<div class="line"><a id="l00458" name="l00458"></a><span class="lineno">  458</span>     set work.column_metadata(where=((datatype in (&#39;datetime&#39;, &#39;date&#39;, &#39;time&#39;)) and (targetdatatype = &#39;integer&#39;)));</div>
<div class="line"><a id="l00459" name="l00459"></a><span class="lineno">  459</span>     dataset_name = &quot;&amp;dataset_name&quot;;</div>
<div class="line"><a id="l00460" name="l00460"></a><span class="lineno">  460</span>     if dataType = &quot;date&quot; and find(displayFormat, &quot;E8601DA&quot;, &#39;it&#39;)=0 then displayFormat = &quot;E8601DA.&quot;;</div>
<div class="line"><a id="l00461" name="l00461"></a><span class="lineno">  461</span>     if dataType = &quot;datetime&quot; and find(displayFormat, &quot;E8601DT&quot;, &#39;it&#39;)=0 then displayFormat = &quot;E8601DT.&quot;;</div>
<div class="line"><a id="l00462" name="l00462"></a><span class="lineno">  462</span>     if dataType = &quot;time&quot; and find(displayFormat, &quot;E8601TM&quot;, &#39;it&#39;)=0 then displayFormat = &quot;E8601TM.&quot;;</div>
<div class="line"><a id="l00463" name="l00463"></a><span class="lineno">  463</span>  run;</div>
<div class="line"><a id="l00464" name="l00464"></a><span class="lineno">  464</span> </div>
<div class="line"><a id="l00465" name="l00465"></a><span class="lineno">  465</span>  %add_formats_to_datasets(</div>
<div class="line"><a id="l00466" name="l00466"></a><span class="lineno">  466</span>    metadata=work.column_metadata_formats,</div>
<div class="line"><a id="l00467" name="l00467"></a><span class="lineno">  467</span>    datalib=sas&amp;_Random,</div>
<div class="line"><a id="l00468" name="l00468"></a><span class="lineno">  468</span>    condition = %str(not missing(displayFormat)),</div>
<div class="line"><a id="l00469" name="l00469"></a><span class="lineno">  469</span>    format=displayFormat</div>
<div class="line"><a id="l00470" name="l00470"></a><span class="lineno">  470</span>    );</div>
<div class="line"><a id="l00471" name="l00471"></a><span class="lineno">  471</span> </div>
<div class="line"><a id="l00472" name="l00472"></a><span class="lineno">  472</span>  proc delete data=work.column_metadata_formats;</div>
<div class="line"><a id="l00473" name="l00473"></a><span class="lineno">  473</span>  run;</div>
<div class="line"><a id="l00474" name="l00474"></a><span class="lineno">  474</span> </div>
<div class="line"><a id="l00475" name="l00475"></a><span class="lineno">  475</span>  %******************************************************************************;</div>
<div class="line"><a id="l00476" name="l00476"></a><span class="lineno">  476</span> </div>
<div class="line"><a id="l00477" name="l00477"></a><span class="lineno">  477</span>  %create_template(type=STUDY, out=work.study_metadata);</div>
<div class="line"><a id="l00478" name="l00478"></a><span class="lineno">  478</span> </div>
<div class="line"><a id="l00479" name="l00479"></a><span class="lineno">  479</span>  proc sql;</div>
<div class="line"><a id="l00480" name="l00480"></a><span class="lineno">  480</span>  insert into work.study_metadata</div>
<div class="line"><a id="l00481" name="l00481"></a><span class="lineno">  481</span>    set fileoid = &quot;&amp;fileOID&quot;,</div>
<div class="line"><a id="l00482" name="l00482"></a><span class="lineno">  482</span>        creationdatetime = &quot;&amp;creationdatetime&quot;,</div>
<div class="line"><a id="l00483" name="l00483"></a><span class="lineno">  483</span>        modifiedDateTime = &quot;&amp;modifiedDateTime&quot;,</div>
<div class="line"><a id="l00484" name="l00484"></a><span class="lineno">  484</span>        datasetJSONVersion = &quot;&amp;datasetJSONVersion&quot;,</div>
<div class="line"><a id="l00485" name="l00485"></a><span class="lineno">  485</span>        originator = &quot;&amp;originator&quot;,</div>
<div class="line"><a id="l00486" name="l00486"></a><span class="lineno">  486</span>        sourcesystem = &quot;&amp;sourceSystem&quot;,</div>
<div class="line"><a id="l00487" name="l00487"></a><span class="lineno">  487</span>        sourcesystemversion = &quot;&amp;sourceSystemVersion&quot;,</div>
<div class="line"><a id="l00488" name="l00488"></a><span class="lineno">  488</span>        studyoid = &quot;&amp;_studyOID&quot;,</div>
<div class="line"><a id="l00489" name="l00489"></a><span class="lineno">  489</span>        metadataversionoid = &quot;&amp;_metaDataVersionOID&quot;,</div>
<div class="line"><a id="l00490" name="l00490"></a><span class="lineno">  490</span>        metaDataRef = &quot;&amp;metaDataRef&quot;</div>
<div class="line"><a id="l00491" name="l00491"></a><span class="lineno">  491</span>    ;</div>
<div class="line"><a id="l00492" name="l00492"></a><span class="lineno">  492</span>  quit;</div>
<div class="line"><a id="l00493" name="l00493"></a><span class="lineno">  493</span> </div>
<div class="line"><a id="l00494" name="l00494"></a><span class="lineno">  494</span>  %create_template(type=TABLES, out=work.table_metadata);</div>
<div class="line"><a id="l00495" name="l00495"></a><span class="lineno">  495</span> </div>
<div class="line"><a id="l00496" name="l00496"></a><span class="lineno">  496</span>  proc sql;</div>
<div class="line"><a id="l00497" name="l00497"></a><span class="lineno">  497</span>  insert into work.table_metadata</div>
<div class="line"><a id="l00498" name="l00498"></a><span class="lineno">  498</span>    set oid = &quot;&amp;_itemGroupOID&quot;</div>
<div class="line"><a id="l00499" name="l00499"></a><span class="lineno">  499</span>        , isReferenceData = &quot;&quot;</div>
<div class="line"><a id="l00500" name="l00500"></a><span class="lineno">  500</span>        , records = &amp;_records</div>
<div class="line"><a id="l00501" name="l00501"></a><span class="lineno">  501</span>        , name = &quot;%upcase(&amp;dataset_name)&quot;</div>
<div class="line"><a id="l00502" name="l00502"></a><span class="lineno">  502</span>        %if %sysevalf(%superq(dataset_label)=, <span class="keywordtype">boolean</span>)=0 %then , label = &quot;%nrbquote(&amp;dataset_label)&quot;;</div>
<div class="line"><a id="l00503" name="l00503"></a><span class="lineno">  503</span>    ;</div>
<div class="line"><a id="l00504" name="l00504"></a><span class="lineno">  504</span>  quit;</div>
<div class="line"><a id="l00505" name="l00505"></a><span class="lineno">  505</span> </div>
<div class="line"><a id="l00506" name="l00506"></a><span class="lineno">  506</span>  %if %sysevalf(%superq(jsonpath)=, <span class="keywordtype">boolean</span>)=0 %then</div>
<div class="line"><a id="l00507" name="l00507"></a><span class="lineno">  507</span>    filename json&amp;_random &quot;&amp;jsonpath&quot;;;</div>
<div class="line"><a id="l00508" name="l00508"></a><span class="lineno">  508</span>  %if %sysevalf(%superq(jsonfref)=, <span class="keywordtype">boolean</span>)=0 %then</div>
<div class="line"><a id="l00509" name="l00509"></a><span class="lineno">  509</span>    filename json&amp;_random &quot;%sysfunc(pathname(&amp;jsonfref))&quot;;;</div>
<div class="line"><a id="l00510" name="l00510"></a><span class="lineno">  510</span> </div>
<div class="line"><a id="l00511" name="l00511"></a><span class="lineno">  511</span>  data work.column_metadata;</div>
<div class="line"><a id="l00512" name="l00512"></a><span class="lineno">  512</span>    retain itemOID name label dataType targetDataType length displayFormat keySequence;</div>
<div class="line"><a id="l00513" name="l00513"></a><span class="lineno">  513</span>    set work.column_metadata(rename=(oid=itemOID));</div>
<div class="line"><a id="l00514" name="l00514"></a><span class="lineno">  514</span>  run;</div>
<div class="line"><a id="l00515" name="l00515"></a><span class="lineno">  515</span> </div>
<div class="line"><a id="l00516" name="l00516"></a><span class="lineno">  516</span>  %write_datasetjson_1_1(</div>
<div class="line"><a id="l00517" name="l00517"></a><span class="lineno">  517</span>    outRef=json&amp;_random,</div>
<div class="line"><a id="l00518" name="l00518"></a><span class="lineno">  518</span>    technicalMetadata=work.study_metadata,</div>
<div class="line"><a id="l00519" name="l00519"></a><span class="lineno">  519</span>    tableMetadata=work.table_metadata,</div>
<div class="line"><a id="l00520" name="l00520"></a><span class="lineno">  520</span>    columnMetadata=work.column_metadata,</div>
<div class="line"><a id="l00521" name="l00521"></a><span class="lineno">  521</span>    rowdata=&amp;dataset_new,</div>
<div class="line"><a id="l00522" name="l00522"></a><span class="lineno">  522</span>    prettyNoPretty=&amp;pretty</div>
<div class="line"><a id="l00523" name="l00523"></a><span class="lineno">  523</span>  );</div>
<div class="line"><a id="l00524" name="l00524"></a><span class="lineno">  524</span> </div>
<div class="line"><a id="l00525" name="l00525"></a><span class="lineno">  525</span>  filename json&amp;_random clear;</div>
<div class="line"><a id="l00526" name="l00526"></a><span class="lineno">  526</span> </div>
<div class="line"><a id="l00527" name="l00527"></a><span class="lineno">  527</span>  %if &amp;_create_temp_dataset_sas=1 %then %do;</div>
<div class="line"><a id="l00528" name="l00528"></a><span class="lineno">  528</span>    proc delete data=sas&amp;_Random..&amp;dataset_name;</div>
<div class="line"><a id="l00529" name="l00529"></a><span class="lineno">  529</span>    run;</div>
<div class="line"><a id="l00530" name="l00530"></a><span class="lineno">  530</span> </div>
<div class="line"><a id="l00531" name="l00531"></a><span class="lineno">  531</span>    %put %sysfunc(filename(fref,%sysfunc(pathname(sas&amp;_Random))));</div>
<div class="line"><a id="l00532" name="l00532"></a><span class="lineno">  532</span>    %put %sysfunc(fdelete(&amp;fref));</div>
<div class="line"><a id="l00533" name="l00533"></a><span class="lineno">  533</span>    libname sas&amp;_Random clear;</div>
<div class="line"><a id="l00534" name="l00534"></a><span class="lineno">  534</span> </div>
<div class="line"><a id="l00535" name="l00535"></a><span class="lineno">  535</span>  %end;</div>
<div class="line"><a id="l00536" name="l00536"></a><span class="lineno">  536</span> </div>
<div class="line"><a id="l00537" name="l00537"></a><span class="lineno">  537</span>  %if %sysfunc(exist(work.column_metadata)) %then %do;</div>
<div class="line"><a id="l00538" name="l00538"></a><span class="lineno">  538</span>    proc delete data=work.column_metadata;</div>
<div class="line"><a id="l00539" name="l00539"></a><span class="lineno">  539</span>    run;</div>
<div class="line"><a id="l00540" name="l00540"></a><span class="lineno">  540</span>  %end;</div>
<div class="line"><a id="l00541" name="l00541"></a><span class="lineno">  541</span> </div>
<div class="line"><a id="l00542" name="l00542"></a><span class="lineno">  542</span>  %exit_macro:</div>
<div class="line"><a id="l00543" name="l00543"></a><span class="lineno">  543</span> </div>
<div class="line"><a id="l00544" name="l00544"></a><span class="lineno">  544</span>  %* Restore options;</div>
<div class="line"><a id="l00545" name="l00545"></a><span class="lineno">  545</span>  options &amp;_SaveOptions1;</div>
<div class="line"><a id="l00546" name="l00546"></a><span class="lineno">  546</span>  options &amp;_SaveOptions2;</div>
<div class="line"><a id="l00547" name="l00547"></a><span class="lineno">  547</span> </div>
<div class="line"><a id="l00548" name="l00548"></a><span class="lineno">  548</span>%mend write_datasetjson;</div>
</div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<!-- start footer part -->
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
  <ul>
    <li class="navelem"><a class="el" href="../../dir_c8843521cc2b354892efaf471a0b361e.html">macros</a></li><li class="navelem"><a class="el" href="../../df/d00/write__datasetjson_8sas.html">write_datasetjson.sas</a></li>
    <li class="footer">Generated by <a href="https://www.doxygen.org/index.html"><img class="footer" src="../../doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.12.0 </li>
  </ul>
</div>
</body>
</html>
